perm filename DUET.FUN[SCR,LCS] blob
sn#469475 filedate 1979-08-23 generic text, type T, neo UTF8
ARRAY F1 ,F2 ,F3 ,F4 ,F5 ,F6 ,F7 ,F8 ,F9
(512);
PRINT "F1 -";
SEG (F1 );
0.0000 1.0000
1.0000 25.0000
1.0000 75.0000
0.0000 100.0000
PRINT "F2 -";
SEG (F2 );
0.0000 1.0000
1.0000 15.0000
0.7500 25.0000
0.6500 75.0000
0.0000 100.0000
PRINT "F3 -";
SEG (F3 );
0.0000 1.0000
1.0000 5.0000
1.0000 8.0000
0.4000 22.0000
0.2000 40.0000
0.0500 75.0000
0.0000 100.0000
PRINT "F4 -";
SEG (F4 );
0.0000 1.0000
1.0000 99.0000
0.0000 100.0000
PRINT "F5 -";
SEG (F5 );
1.0000 1.0000
0.7500 25.0000
0.2500 75.0000
0.0000 100.0000
PRINT "F6 -";
SYNTH(F6 ); 99
1.0000 1.0000 0.0000 0.0000
3.0000 0.3330 0.0000 0.0000
5.0000 0.2000 0.0000 0.0000
7.0000 0.1430 0.0000 0.0000
9.0000 0.1110 0.0000 0.0000
999.0000
PRINT "F7 -";
SYNTH(F7 ); 99
1.0000 1.0000 0.0000 0.0000
2.3100 0.4000 0.0000 0.0000
4.1700 0.4000 0.0000 0.0000
1.0000 1.0000 0.0000 0.0000
2.0000 1.0000 0.0000 0.0000
4.0000 1.0000 0.0000 0.0000
6.0000 0.5000 0.0000 0.0000
2.0000 1.0000 0.0000 0.0000
999.0000
PRINT "F8 -";
SYNTH(F8 ); 99
1.0000 1.0000 0.0000 0.0000
2.0000 0.3000 0.0000 0.0000
4.0000 0.3000 0.0000 0.0000
5.0000 0.1000 0.0000 0.0000
999.0000
PRINT "F9 -";
SEG (F9 );
-1.0000 1.0000
0.5000 15.0000
0.0000 25.0000
0.0000 75.0000
-0.5000 100.0000